5 REM* READ BLOCKS FREE-1541
6 :
10 LO=250: HI=2: REM $02FA-$02FD
20 Z$=CHR$(0)
30 OPEN 15,8,15
40 PRINT#15,"M-R"CHR$(LO)CHR$(HI)CHR$(4)
50 GET#15,L0$,L1$,H0$,H1$
60 F0=ASC(L0$+Z$)+256*ASC(H0$+Z$)
70 PRINT"BLOCKS FREE:"F0
80 CLOSE 15